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/7 OR 9 TRACK MTA FOR PS/8 
/DIRECTORY VERSION, IN ONE PAGE • 

/EACH "BLOCK ON TAPE CONSISTS OF 3 RECORDS. 

/ 1. A SINGLE WORD RECORD CONTAINING THE BLOCK # 

/ 2. 256 OR 128 WORDS OF DATA 

/ 3. A 3" GAP AND AN END OF FILE RECORD <E0F=17> 

/THERE IS A TAPE FORMATTER PROGRAM WRITTEN IN FOCAL* 

/TO FORMAT A TAPE WITH THE REQUIRED BLOCK STRUCTURE 

/NOTE:BECAUSE OF THE WAV THE FORMATTED TAPE IS GENERATED 
/EACH "BLOCK" (GROUP OF 3 RECORDS AS DESCRIBED ABOVE> 

/IS ONLY 6. 25 INCHES LONG. THUS A 208' REEL OF TAPE 
/WILL TYPICALLY CONTAIN 480 BLOCKS. 

/ASSEMBLY PARAMETERS 


0100 EOF~100; FQRWARD=60; REVERSE=78; REWIND=10; WRITE=40 

0060 
0070 
0010 
0040 

0020 READ=20; TEST=7776 
7776 


/MAG TAPE IOT-'S 



6701 MTSF=6701>MTCM=6714; MTCR=6711; MTTR=6721; MTAF=6712; MTRC=6724 

6714 

6711 

6721 

6712 
g724 

6716 MTLC=6716; MTRS=6786j MTG0=6722; MCAF=6732 

6706 

6722 
6732 


0001 FIELD 1 


4000 *4000 

IFNDEF UPD CUPD=421> 

/UNIT0, ODD PARITY, 556 BPI, READ COMMAND 

/NOTE: DEFINE UPD~623 IF YOU HAVE A 9-TRACK TAPE UNIT 


/ENTRY 


14000 0000 MTA, 

14801 6214 

14082 1364 


0 

RDF 

TAD CDFCIF 


/SINGLE ENTRY ONLY ! 
/GET CALLER FIELD NO. 
/FOR EXIT CDF CIF 


*DECU5 NO. FOCAL8-125a 
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14903 

3313 


DCA 

EXIT 


14004 

1377 


TAD 

<REWIND- 

•READ/10 ERROR ATTEMPTS 

14005 

3361 


DCA 

ERCNT 


14006 

1600 


TAD 

I MTA 


14007 

3300 


DCA 

MTFUNC 

/FUNCTION 

14010 

2200 


IS2 

MTA 


14011 

1600 


TAD 

I MTA 


14012 

3277 


DCA 

MTADDR 

/BUFFER ADDRESS 

14013 

2200 


IS2 

MTA 

14014 

1600 


TAD 

I MTA 


14015 

3363 


DCA 

BLOCK 

/STARTING BLOCK NO. 

14016 

2200 


IS2 

MTA 

14017 

6201 


CDF 


/PROGRAM ALWAVS RUNS IN 0 

14020 

1300 


TAD 

MTFUNC 


14021 

0372 


AND 

P3700 

/SAVE PAGE COUNT 

14022 

7106 


CLL 

RTL 

14023 

7006 


RTL 



14024 

7006 


RTL 


/BLOCKS IN ACC, EVEN/ODD IN LINK 

14025 

?’430 


S2L 


14026 

7001 


I AC 


/SKIP IF EVEN # OF PAGES 

14027 

7041 


CIA 


14030 

3371 


DCA 

BLCNTR 

/A WELL-ROUNDED COUNT ! 

14031 

7430 


S2L 


/SKIP IF EVEN # OF PAGES 

14032 

1371 


TAD 

BLCNTR 

14033 

3370 


DCA 

HALFBLOCK /WATCH THIS, IT IS SUPER TRICK 

14034 

5253 


JMP 

NEXTBL 




/"SKIP" 

DESIGNED TO 

IGNORE "CRAP IN THE GAP" 



/<fl CUMULATIVE "GLITCH" CAUSED BV ERASE HEAD STOPPING 



/AT THE 

SAME POINT ON TAPE AFTER EACH WRITE> 

14035 

0000 

SKIP, 

0 



14036 

1376 


TAD 

<FORWARD 

-READ 

1.4037 

3362 

MTLP, 

DCA 

MTTEMP 

/STORE IN TEMPORARV 

<4040 

1362 


TAD 

MTTEMP 

/GET THE DIRECTION WORD 

14041 

4326 


JMS 

MOVE 

14042 

0001 


1 


/SPACE FORWARD 1 RECORD 

14043 

0200 

P200, 

200 


/IGNORED 

14044 

0020 

PREAD, 

READ 

/IGNORED 

14045 

0100 


EOF 


/TEST FOR EOF ONLV 

14046 

5635 


JMP 

I SKIP 

/FOUND IT, SO EXIT "SKIP" 

14047 

5240 


JMP 

MTLP 

/NOT VET, KEEP HUNTING 


14050 

14051 

14052 

7710 

5365 

4235 

SEARCH, 

SPA 

JMP 

JMS 

CLA 

RRW 

SKIP 

/WHERE ARE WE ? 

/PAST IT, SO REWIND 

/NOT THERE VET, GO TO NEXT BLOCK 

14053 

14954 

4326 

0001 

NEXTBLOCK, 

JMS 

1 

MOVE 

/I WORD BLOCK NO. 





14055 

7753 

MTCA, 

7753 
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/CURRENT ADDRESS FOR STORAGE 

14056 

0000 

BCNTR, 

0 

/FIELD 0 

14057 

14060 

7776 

5365 


TEST 

JMP RRW 

/BLOCK RECORD INCORRECT, REWIND 

14061 

1655 

MTLQOP, 

TAD I MTCA 

/GET THE BLOCK NO. 

14062 

14063 

7141 

1363 


CIA CLL 

TAD BLOCK 

/IS THIS THE ONE WE ARE LOOKING FOR ? 

14064 

7440 


S2A 

/SKIP IF BLOCK FOUND 

14065 

5250 


JMP SEARCH 

/NO, WE ARE NOT AT IT VET 

14066 

2370 


IS2 HALFBLOCK 

/SKIP IF LASTBLOCK AND # OF PAGES 

14067 

1243 


TAD P200 

/FULL BLOCK. 

14070 

1243 


TAD P200 

/HALF BLOCK 

14071 

^*072 

1*073 

3276 

1300 


DCA MTADDR-1 
TAD MTFUNC 

/GET FUNCTION WORD AGAIN 

7710 


SPA CLA 

/SKIP IF READ IS FUNCTION 

14074 

1244 


TAD PREAD 

/NO, IT IS A WRITE FUNCTION 

14075 

14076 

4326 

0400 

MTCOMM, 

JMS MOVE 

400 

/WORD COUNT <256 DECIMAL* 

14077 

0000 

MTADDR, 

0 

/ADDRESS OF DATA 

14100 

0000 

MTFUNC, 

0 

/FUNCTION WORD 

14101 

3766 


3766 

/IGNORE RECORD LENGTH ERROR 

14102 

5315 


JMP MTERR 

/TRANSFER BOMBED 

14103 

1277 


TAD MTADDR 


14104 

1276 


TAD MTADDR-1 

/UPDATE DATA ADDRESS. 

14105 

14106 

3277 

4235 


DCA MTADDR 

JMS SKIP 

/SKIP EOF AND "GLITCH" 

14107 

2363 


IS2 BLOCK 

/STEP TO NEXT BLOCK IN FILE 

14110 

2371 


IS2 BLCNTR 

/SKIP WHEN TRANSFER COMPLETE 

14111 

14112 

5253 

2200 


JMP NEXTBLOCK 
IS2 MTA 

/INDICATE NO ERROR 

14113 

6203 

EXIT, 

CDF CIF 


14114 

5608 


JMP I MTA 

/NO RETURN TO CALLER 

• 

14115 

2361 

/MAG TAPE ERROR OCCURED DURING READ/WRITE 
/OF DATA BLOCK. 

/ALLOW 10 TRVS BEFORE ABORTING THE TRV 
/THIS MAV BE THE DIRECTORV! 

MTERR, 

IS2 ERCNT /10 TRIES ? 

14116 

7410 


SKP 

/NO,KEEP TRYING 

14117 

5313 


JMP EXIT 

/YES, ALL IS LOST. 

14120 

7240 


CLA CMA 

/SET AC=—1 

14121 

1370 


TAD HALFBLK 

/BACK UP HALFBLK, SINCE WE DID AN IS2 

14122 

3370 


DCA HALFBLK 

/RESTORE IT 

14123 

1375 


TAD <10 

/SET DIRECTION -BACKWARDS 

14124 

4235 


JMS SKIP 

/NOW BACK OVER THE EOF 

14125 

5252 


JMP NEXTBLOCK- 

-1/NOW APPROACH THE RECORD 


/IN THE STANDARD MANNER TO AVOID 
/PROBLEMS 


/MOVE, CALLED BV: 
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/JMS MOVE /ACC CONTAINS FUNCTION -28 IN BITS 6-8 

/WORDCOUNT /NEGATED INTERNALLV 

/CURRENT ADDRESS/-1 SUBTRACTED INTERNALLV 
/FIELD 

/STATUS BIT PATTERN 
/RETURN IF MASKED STATUS #0 
/RETURN IF MASKED STATUS*© 


14126 

0000 

MOVE, 

0 

14127 

1374 


TAD <UPD /IF ACC=0, FORCE A READ 

14130 

6711 


MTCR /CONTROL READV ? 

14131 

5330 


JMP . -1 

14132 

6716 


mtlc /CLEAR ERRORS AND LOAD COMMAND 

14133 

7200 


CLA 

14134 

6721 


MTTR /TRANSPORT READV ? 

14135 

5334 


JMP . -1 

14136 

1726 


TAD I MOVE /WORD COUNT 

14137 

7041 


CIA 

14140 

3767 


DCA I MTWC 

14141 

2326 


ISZ MOVE 

14142 

7340 


STA CLL 

14143 

1726 


TAD I MOVE /ADDRESS 

14144 

3655 


DCA I MTCA 

14145 

2326 


ISZ MOVE 

14146 

1726 


TAD I MOVE /FIELD 

14147 

2326 


ISZ MOVE 

14150 

6722 


MTGO 

14151 

6701 


MTSF 

14152 

5351 


JMP . -1 

14153 

6706 


MTRS 


0726 


AND I MOVE /MASK 

14155 

2326 


ISZ MOVE 

14156 

7650 


SNA CLA /SKIP IF STATUS ! MASK #0 

14157 

2326 


ISZ MOVE 

14160 

5726 

JMP I MOVE 

/CONSTANTS 

14161 

0000 

ERCNT, 

0 

14162 

0000 

MTTEMP, 

0 

14163 

0000 

BLOCK, 

0 /CONTAINS DESIRED BLOCK 

14164 

6203 

CDFCIF, 

/REWIND 

RRW, 

CDF CIF 

SUBROUTINE 

14165 

1377 


TAD <REWIND-READ 

14166 

4326 


JMS MOVE 

14167 

7752 

MTWC, 

7752 /ARG. IGNORED BV HARDWARE 

14170 

0000 

HALFBL, 

0 /DECIDES ABOUT FINAL BLOCK LENGTH 

14171 

0000 

BLCNTR, 

0 /COUNTS BLOCKS 

14172 

3700 

P3700, 

3700 /BOT CHECK 

14173 

4 4 

5253 

8421 


JMP NEXTBLOCK 
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/ 


* 


14175 0010 

14176 0040 

14177 7770 
0000 




FIELD 0 
$ 
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BCNTR 

4056 

BLCNTR 

4171 

BLOCK 

4163 

CDFCIF 

4164 

EOF 

0100 

ERCNT 

4161 

EXIT 

4113 

FORWAR 

0060 

HALFBL 

4170 

MCAF 

6732 

MOVE 

4126 

MTA 

4000 

MTADDR 

4077 

MTAF 

6712 

MTCA 

4055 

MTCM 

6714 

MTCOMM 

4076 

MTCR 

6711 

MTERR 

4115 

MTFUNC 

4100 

MTGO 

6722 

MTLC 

6716 

MTLOOP 

4061 

MTLP 

4040 

MTRC 

6724 

WTRS 

6706 

MTSF 

6701 

MTTEMP 

4162 

MTTR 

6721 

MTWC 

4167 

MLiKTBL 

4053 

PREAD 

4044 

P200 

4043 

P3700 

4172 

READ 

0020 

REVERS 

0070 

SWIND 

0010 

/RW 

4165 

SEARCH 

4050 

SKIP 

4035 

TEST 

7776 

UPD 

0421 

WRITE 

0040 










